home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 May / EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso / earcd / comm / tcp / miamilog.lha / MIAMIoff.miami next >
Text File  |  1997-02-24  |  2KB  |  81 lines
  1. /*
  2.     $VER: MIAMILogbook.miami 1.0 (22 Feb 1997)
  3.  
  4. */
  5.  
  6.  
  7.  
  8.  
  9.  
  10. /*
  11.     Varibles
  12.  
  13.     'logfile'  - Filename of the Logfile
  14.  
  15. */
  16.  
  17. logfile  = 'Miami_Time.log'
  18.  
  19. /* body */
  20.  
  21. /* get ONL time */
  22.  
  23. if open( date,'t:dateon',r ) then
  24.   do
  25.     datentp = readln( date )
  26.     call close( date )
  27.     address command 'C:Delete T:DateON'
  28.    end
  29.  else
  30.    say 'Datei nich gfunne !!!'
  31.  
  32. timentp = right( datentp,8 )
  33.  
  34. /* get Offlinetime */
  35.  
  36. address command 'C:Date >T:DateOFF'
  37.  
  38. if open( date,'t:dateoff',r ) then
  39.   do
  40.     dateold = READLN( date )
  41.     call close( date )
  42.     address command 'C:Delete T:DateOFF'
  43.    end
  44.   else
  45.    say 'Datei schowidda net gfunne !!!'
  46.  
  47. timeold = right( dateold,8 )
  48.  
  49. /* compare both times */
  50.  
  51. secntp = left( timentp,2 ) * 3600 + substr( timentp,4,2 ) *60 + right( timentp,2 )
  52. secold = left( timeold,2 ) * 3600 + substr( timeold,4,2 ) *60 + right( timeold,2 )
  53. secerror = secntp - secold
  54. secerror = abs( secerror )
  55. hh = right( '0' || trunc( secerror / 3600 ),2 )
  56. mm = right( '0' || trunc( ( secerror - hh * 3600 ) / 60 ),2 )
  57. ss = right( '0' || secerror - hh * 3600 - mm * 60,2 )
  58. timeerror = '+'
  59. timeerror = hh || ':' || mm || ':' || ss
  60.  
  61. error = word( datentp,2,1 ) || '     ' || timentp || '  ' || timeold || '  ' || timeerror
  62.  
  63. if ~open( log,logfile,r ) then
  64.   do
  65.     call open( log,logfile,w ) then
  66.     writeln( log,'Date          Online    Offline     Time   ' )
  67.     writeln( log,'---------     --------  --------  ---------' )
  68.   end
  69. call close( log )
  70.  
  71. if open( log,logfile,a ) then
  72.   do
  73.     writeln( log,error )
  74.     call close( date )
  75.     address command 'C:Delete T:Date'
  76.   end
  77. else
  78.   say 'Could not open "' || logfile || '" !!!'
  79.  
  80. exit
  81.